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Algorithm Tree-Merge-Anc (AList, OList) 

/* Assume that all nodes in AList and DList have the same Docld */ 
/* Alist is the list of potential ancestors, in sorted order of StartPos */ 

/* DList is the list of potential descendants in sorted order of StartPos */ 

begin-desc = DList-MirstNode; OutputList = NULL; 

for (a = AList— >firstNode; a ! = NULL; a = a->nextNode) j 

for (d = begin-desc; (d ! = NULL && d.StartPos < a.StartPos) ; d = d->nextNode) j 
/* skipping over unmatchable d's */ } 

begin-desc = d: 

for (d = begin-desc; (d ! = NULL && d.EndPos < a.EndPos); d = d->nextNode) f 
if ( (a.StartPos < d.StartPos) && (d.EndPos < a.EndPos) 
[&& (d.LevelNum = a.LevelNum + 1)]) j 
/* the optional condition is for parent-child relationship */ 
append (a,d) to OutputList; j 

i 

i 
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Algorithm tree-merge-Desc (AList, DList) 

/* Assume that all nodes in AList and DList have the same Docld */ 
/* Alist is the list of potential ancestors, in sorted order of StartPos */ 
/* DList is the list of potential descendants in sorted order of StartPos */ 

begin-anc = AList-MirstNode; OutputList = NULL; 

for (d = DList-MirstNode; d != NULL; d = d->nextNode) j 

for (a = begin-anc; (a != NULL kk a.EndPos < d.StartPos); a = a->nextNode) \ 
/* skipping over unmatchable a's */ j 

begin-anc = a; 

for (a = begin-anc; (a != NULL kk a.StartPos); a = a->nextNode) j 
if ( (a.StartPos < d.StartPos) && (d.EndPos < a.EndPos) 
[kk (d.LevelNum = a.LevelNum + 1) ] ) j 
/* the optional condition is for parent-child relationships */ 
append (a,d) to OutputList; ) 

i 

! 
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Algorithm Stack-Tree-Desc (AList, OList) 

/* Assume that all nodes in AList and DList have the same Docld */ 
/* AList is the list of potential ancestors, in sorted order ot StartPos */ 
/* DList is the list of potential descentants in sorted order of StartPos */ 

a = AList-MirstNode; d = Dlist-MirstNode; OutputList = NULL; 
while (the input list are not empty or the stack is not empty) { 

if ( (a.StartPos > stack-Mop.EndPos) kk (d.StartPos > stack-Mop.EndPos) ) j 
/* time to pop the top element in the stack */ 
tuple = stack->pop(); \ 
else if (a.StartPos < d.StartPos) j 
stack->push (a) 
a = a->nextNode | 
else j 

for (al = stack->bottom; al != NULL; al = al->up) j 
^ append (al,d) to OutputList 

d = d->nextNode 

! 

I 
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Algorithm Stack-Tree-Anc (AList, DList) 

/* Assume that all nodes in AList and DList have the same Docld */ 
/* AList is the list of potential ancestors, in sorted order of StartPos */ 
/* DList is the list of potential descentants in sorted order of StartPos */ 

a = AList-MirstNode; d = Dlist-MirstNode; OutputList = NULL; 
while (the input list are not empty or the stack is not empty) \ 

if ( (a.StartPos > stock-Mop.EndPos) && (d.StartPos > stack-Mop.EndPos) ) j 
/* time to pop the top element in the stack */ 
tuple = stack->pop(); ) 

if (stack->size == 0) j /* we just popped the bottom element */ 

append tuple-inherit— list to OutputList j 
else { 

append tuple.inherit— list to tuple.self— list 

append the resulting tuple.self —list to stack— >top.inherit-list 

i 

! 

else if (a.StartPos < d.StartPos) | 

stack->push (a) 

a = a->nextNode | 
else { 

for (al = stack->bottom; al != NULL; al = al->up) j 
if (al == stack->bottom) append (al.d) to OutputList 
else append (al,d) to the self-list of al 

i 

d = d->nextNode 

i 
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<!ELEMENT manager (name, (manger | department | employee)+)> 

<!ATTUST manager id CDATA fFIXED T> 

<!ELEMENT department (name, email?, employee+, department*)> 

<!ATTLIST department id CDATA fFIXED T> 

<!ELEMENT employee (name+, email?)> 

<!ATTLIST employee id CDATA fFIXED T> 

<!ELEMENT name (#PCDATA)> 

<!ATTLIST name id CDATA fFIXED Y> 

<!ELEMENT email (fPCDATAp 

<!ATTUST email id CDATA fFIXED "5"> 



<Fig. 9A 
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